CAAPrecession_PrecessEquatorial <-
function(Alpha, Delta, JD0, JD){
.Call("CAAPrecession_PrecessEquatorial", Alpha, Delta, JD0, JD)
}
